﻿Namespace TypesOfLine
 Public Class INI_Parameter
  Inherits INI_Base
  Protected mKey As String
  Protected mValue As String

  ''' <summary>
  ''' Create a new instance of the INI_Parameter Class
  ''' </summary>
  ''' <param name="Section">Under which INI_Section does this parameter belong?</param>
  ''' <param name="KeyName">Parameter keyname.</param>
  ''' <param name="Value">Parameter's value.</param>
  ''' <param name="Comment">A Comment about the parameter.</param>
  ''' <remarks></remarks>
  Public Sub New(ByRef Section As INI_Section, _
                 ByVal KeyName As String, _
                 Optional ByVal Value As String = Nothing, _
                 Optional ByVal Comment As String = Nothing)
   MyBase.New(Nothing, Comment)
   Me.Section = Section
   mKey = KeyName
   mValue = Value
  End Sub
  ''' <summary>
  ''' The parameter's keyname.
  ''' </summary>
  ''' <value></value>
  ''' <returns></returns>
  ''' <remarks></remarks>
  Public Property Key() As String
   Get
    Return mKey
   End Get
   Set(ByVal value As String)
    mKey = value
   End Set
  End Property
  ''' <summary>
  ''' Value of this parameter.
  ''' </summary>
  ''' <value></value>
  ''' <returns>The value of parameter.</returns>
  ''' <remarks></remarks>
  Public Property Value() As String
   Get
    Return mValue
   End Get
   Set(ByVal value As String)
    mValue = value
   End Set
  End Property
 End Class
End Namespace
